﻿Imports BE.BE
Imports DAL.DAL

Namespace BL
    Public Class Asegurador_BL
        Shared Sub altaAsegurador(pAsegurador As Asegurador_BE)

            Try
                DAL_Asegurador.altaAsegurador(pAsegurador)

                If pAsegurador.Telefonos.Count > 0 Then
                    For Each telefono As Telefono_BE In pAsegurador.Telefonos


                        telefono.TipoObjeto = Telefono_BE.EnumTipoObjeto.Asegurador
                        telefono.IdObjeto = pAsegurador.Id
                        Telefono_BL.guardarTelefono(telefono)

                    Next
                End If
            Catch ex As Exception
                Throw ex
            End Try

        End Sub

        Shared Sub bajaAsegurador(pAsegurador As Asegurador_BE)

        End Sub

        Shared Sub modificarAsegurador(pAsegurador As Asegurador_BE)

        End Sub

        Shared Function listarAsegurador() As List(Of Asegurador_BE)
            Return DAL_Asegurador.listarAsegurador()
        End Function

        Shared Sub altaTelefono(pAsegurador As Asegurador_BE, pTelefono As Telefono_BE)
            pAsegurador.Telefonos.Add(pTelefono)
        End Sub

        Shared Sub bajaTelefono(pAsegurador As Asegurador_BE, pTelefono As Telefono_BE)

            For i As Integer = pAsegurador.Telefonos.Count - 1 To 0

                If pAsegurador.Telefonos.Item(i).Numero = pTelefono.Numero Then

                    pAsegurador.Telefonos.RemoveAt(i)

                End If

            Next

        End Sub
    End Class
End Namespace